sub fib {
    $_[0] < 2 ? $_[0] : fib($_[0] - 2) + fib($_[0] - 1);

    #if ($_[0] < 2) {
    #    return $_[0];
    #} else {
    #    return fib($_[0] - 2) + fib($_[0] - 1);
    #}

    #my $n = $_[0];
    #$n < 2 ? $n : fib($n - 2) + fib($n - 1);
}

print fib(32), "\n";
